home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Demos / AppMaker 2.0b3 / Demo AppMaker 1.5 / Demo AppMaker™ / Demo AppMaker™.rsrc / TmPM_203_Doc.inc < prev    next >
Encoding:
Text File  |  1992-04-08  |  3.0 KB  |  131 lines
  1. %if lang = MPW%
  2.     { %filename% -- document class }
  3.     { Created %date% %time% by AppMaker  }
  4. %endif%
  5.  
  6. const 
  7.     kFileType        = 'TEXT';
  8.     kSignature        = 'XXXX';    {Creator name}
  9.  
  10. {$S AOpen}
  11. {----------}
  12. Procedure T%appname%Doc.I%appname%Doc;
  13. Begin
  14.     IDocument (kFileType, kSignature, kUsesDataFork, not kUsesRsrcFork,
  15.                                         not kDataOpen, not kRsrcOpen);
  16.     fSavePrintInfo := true;    {default is false}
  17. End; {I%appname%Doc}
  18.  
  19. {$S AClose}
  20. {----------}
  21. Procedure T%appname%Doc.Free; Override;
  22. Begin
  23.     FreeData;
  24.     inherited Free;
  25. End; {Free}
  26.  
  27. {$S AClose}
  28. {----------}
  29. Procedure T%appname%Doc.FreeData; Override;
  30. Begin
  31. End; {FreeData}
  32.  
  33. {$S AOpen}
  34. {----------}
  35. Procedure T%appname%Doc.DoMakeViews    (forPrinting:    boolean); Override;
  36. var
  37.     aWindow:            TWindow;
  38.     aStdPrintHandler:    TStdPrintHandler;
  39. Begin
  40.     %for each window gen makeWindow%
  41.     
  42.     New (aStdPrintHandler);
  43.     FailNIL (aStdPrintHandler);
  44.     aStdPrintHandler.IStdPrintHandler (self,
  45.                                         aWindow,            {main view of main window}
  46.                                         NOT kSquareDots,
  47.                                         kFixedSize,            {horizontal page size}
  48.                                         NOT kFixedSize);    {vertical page size}
  49. End; {DoMakeViews}
  50.  
  51. {$S AWriteFile}
  52. {----------}
  53. Procedure T%appname%Doc.DoNeedDiskSpace    (
  54.                             var dataForkBytes:    longInt;
  55.                             var rsrcForkBytes:    longInt); Override;
  56. Begin
  57.     inherited DoNeedDiskSpace (dataForkBytes, rsrcForkBytes);    {to save print info}
  58.     dataForkBytes := dataForkBytes + 0 {size of your data};
  59. End; {DoNeedDiskSpace}
  60.  
  61. {$S AReadFile}
  62. {----------}
  63. Procedure T%appname%Doc.DoRead    (aRefNum:        integer;
  64.                                  rsrcExists:    boolean;
  65.                                  forPrinting:    boolean); Override;
  66. var
  67.     dataSize:        longInt;
  68. Begin
  69.     inherited DoRead (aRefNum, rsrcExists, forPrinting);    {read printer info}
  70.     FailOSErr (GetEOF (aRefNum, dataSize));        {get size of data in file}
  71. End; {DoRead}
  72.  
  73. {$S AWriteFile}
  74. {----------}
  75. Procedure T%appname%Doc.DoWrite    (aRefNum:        integer;
  76.                                  makingCopy:    boolean); Override;
  77. var
  78.     dataSize:        longInt;
  79. Begin
  80.     inherited DoWrite (aRefNum, makingCopy);    {save print info to disk}
  81.     dataSize := 0 {size of your data};
  82. End; {DoWrite}
  83.  
  84. {$S ARes}
  85. {----------}
  86. Procedure T%appname%Doc.DoSetupMenus; Override;
  87. Begin
  88.     inherited DoSetupMenus;
  89. End; {DoSetupMenus}
  90.  
  91. %for each menu gen dynamicMenuProc%
  92. {$S ASelCommand}
  93. {----------}
  94. Function  T%appname%Doc.DoMenuCommand    (aCmdNumber:    CmdNumber): TCommand; Override;
  95. var
  96.     menu:        integer;
  97.     item:        integer;
  98. Begin
  99.     DoMenuCommand := gNoChanges;
  100.     
  101.     if aCmdNumber < 0 then begin
  102.         CmdToMenuItem (aCmdNumber, menu, item);
  103.         %for each menu gen dynamicMenu%
  104.  
  105.     end else begin
  106.         case aCmdNumber of
  107.             0:
  108.                     ;
  109.             {put your menu commands here}
  110.             otherwise
  111.                     DoMenuCommand := inherited DoMenuCommand (aCmdNumber);
  112.         end; {case}
  113.     end;
  114. End; {DoMenuCommand}
  115.  
  116. {$IFC qInspector}
  117. {$S AFields}
  118. {----------}
  119. Procedure T%appname%Doc.Fields    (
  120.                 Procedure DoToField    (fieldName:        Str255;
  121.                                      fieldAddr:        Ptr;
  122.                                      fieldType:        integer)
  123.                                 ); Override;
  124. Begin
  125.     DoToField ('T%appname%Doc', nil, bClass);
  126.     inherited Fields (DoToField);
  127. End; {Fields}
  128. {$ENDC}
  129.  
  130. {End U%AppName%Doc.inc.p}
  131.